#! /usr/bin/perl

use diagnostics;
use strict;

my %a = vazio();
my %b;

print "a\n" unless %a;
print "b\n" if %b;

sub vazio{
	
	return;
}